option explicit
Sub Main
dim A as double, B as double 
A = inputbox("Unesi vrednost A")
B = inputbox("Unesi vrednost B")
A = A + B
B = A - 2*B
msgbox(A)
Msgbox(B)

End Sub